Program ejemploKill;
uses BaseUnix;

Procedure MuestraSenial(sig : Longint);cdecl;
begin
	writeln('Recibiendo señal: ',sig);
end;

begin
	fpSignal(SigUsr1,@MuestraSenial);
	Writeln ('Envie señal 10 para salir');
	Writeln (' (ejecute kill 10 ',fpgetpid,' )');
	fpPause;
	Writeln('Terminando...');
end.
